Released RG*1*75 SEQ #76 Extracted from mail message **KIDS**:RG*1.0*75^ **INSTALL NAME** RG*1.0*75 "BLD",3502,0) RG*1.0*75^CLINICAL INFO RESOURCE NETWORK^0^3210301^y "BLD",3502,1,0) ^^3^3^3210301^ "BLD",3502,1,1,0) MASTER VETERAN INDEX VISTA ENHANCEMENTS - ENTERPRISE USER IDENTITY "BLD",3502,1,2,0) Refer to patch RG*1.0*75 in the FORUM Patch Module for a complete "BLD",3502,1,3,0) description. "BLD",3502,4,0) ^9.64PA^^ "BLD",3502,6) 1 "BLD",3502,6.3) 1 "BLD",3502,"KRN",0) ^9.67PA^1.5^25 "BLD",3502,"KRN",.4,0) .4 "BLD",3502,"KRN",.401,0) .401 "BLD",3502,"KRN",.402,0) .402 "BLD",3502,"KRN",.403,0) .403 "BLD",3502,"KRN",.5,0) .5 "BLD",3502,"KRN",.84,0) .84 "BLD",3502,"KRN",1.5,0) 1.5 "BLD",3502,"KRN",1.6,0) 1.6 "BLD",3502,"KRN",1.61,0) 1.61 "BLD",3502,"KRN",1.62,0) 1.62 "BLD",3502,"KRN",3.6,0) 3.6 "BLD",3502,"KRN",3.8,0) 3.8 "BLD",3502,"KRN",9.2,0) 9.2 "BLD",3502,"KRN",9.8,0) 9.8 "BLD",3502,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",3502,"KRN",9.8,"NM",1,0) RGMTMONT^^0^B73383877 "BLD",3502,"KRN",9.8,"NM","B","RGMTMONT",1) "BLD",3502,"KRN",19,0) 19 "BLD",3502,"KRN",19.1,0) 19.1 "BLD",3502,"KRN",101,0) 101 "BLD",3502,"KRN",409.61,0) 409.61 "BLD",3502,"KRN",771,0) 771 "BLD",3502,"KRN",779.2,0) 779.2 "BLD",3502,"KRN",870,0) 870 "BLD",3502,"KRN",8989.51,0) 8989.51 "BLD",3502,"KRN",8989.52,0) 8989.52 "BLD",3502,"KRN",8993,0) 8993 "BLD",3502,"KRN",8994,0) 8994 "BLD",3502,"KRN","B",.4,.4) "BLD",3502,"KRN","B",.401,.401) "BLD",3502,"KRN","B",.402,.402) "BLD",3502,"KRN","B",.403,.403) "BLD",3502,"KRN","B",.5,.5) "BLD",3502,"KRN","B",.84,.84) "BLD",3502,"KRN","B",1.5,1.5) "BLD",3502,"KRN","B",1.6,1.6) "BLD",3502,"KRN","B",1.61,1.61) "BLD",3502,"KRN","B",1.62,1.62) "BLD",3502,"KRN","B",3.6,3.6) "BLD",3502,"KRN","B",3.8,3.8) "BLD",3502,"KRN","B",9.2,9.2) "BLD",3502,"KRN","B",9.8,9.8) "BLD",3502,"KRN","B",19,19) "BLD",3502,"KRN","B",19.1,19.1) "BLD",3502,"KRN","B",101,101) "BLD",3502,"KRN","B",409.61,409.61) "BLD",3502,"KRN","B",771,771) "BLD",3502,"KRN","B",779.2,779.2) "BLD",3502,"KRN","B",870,870) "BLD",3502,"KRN","B",8989.51,8989.51) "BLD",3502,"KRN","B",8989.52,8989.52) "BLD",3502,"KRN","B",8993,8993) "BLD",3502,"KRN","B",8994,8994) "BLD",3502,"QDEF") ^^^^NO^^^^NO^^NO "BLD",3502,"QUES",0) ^9.62^^ "BLD",3502,"REQB",0) ^9.611^1^1 "BLD",3502,"REQB",1,0) RG*1.0*34^2 "BLD",3502,"REQB","B","RG*1.0*34",1) "MBREQ") 0 "PKG",272,-1) 1^1 "PKG",272,0) CLINICAL INFO RESOURCE NETWORK^RG^CIRN "PKG",272,22,0) ^9.49I^1^1 "PKG",272,22,1,0) 1.0^2990430^2990601^12555 "PKG",272,22,1,"PAH",1,0) 75^3210301 "PKG",272,22,1,"PAH",1,1,0) ^^3^3^3210301 "PKG",272,22,1,"PAH",1,1,1,0) MASTER VETERAN INDEX VISTA ENHANCEMENTS - ENTERPRISE USER IDENTITY "PKG",272,22,1,"PAH",1,1,2,0) Refer to patch RG*1.0*75 in the FORUM Patch Module for a complete "PKG",272,22,1,"PAH",1,1,3,0) description. "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") NO "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 1 "RTN","RGMTMONT") 0^1^B73383877^B37393019 "RTN","RGMTMONT",1,0) RGMTMONT ;BIR/CML,PTD-MPI/PD Monitor HL7 Messaging/Filers and Setups ;6/25/20 15:14 "RTN","RGMTMONT",2,0) ;;1.0;CLINICAL INFO RESOURCE NETWORK;**20,30,31,34,75**;30 Apr 99;Build 1 "RTN","RGMTMONT",3,0) ; "RTN","RGMTMONT",4,0) ;Reference to OPTION (#19) file supported by IA #10075 "RTN","RGMTMONT",5,0) ;Reference to OPTION SCHEDULING (#19.2) file supported by IA #3599 "RTN","RGMTMONT",6,0) ;Reference to ^DPT("AICNL" supported by IA #2070 "RTN","RGMTMONT",7,0) ;Reference to $$SEND^VAFHUTL for file DG(43 supported by IA #2624 "RTN","RGMTMONT",8,0) ;Reference to ^HLCS(870 supported by IA #3335 "RTN","RGMTMONT",9,0) ;Reference to $$STAT^HLCSLM supported by IA #3574 "RTN","RGMTMONT",10,0) ;Reference to ^DIA(2 and data derived from the AUDIT file (#1.1) "RTN","RGMTMONT",11,0) ; supported by IA #2097 and #2602. "RTN","RGMTMONT",12,0) ;Reference to ^XTV(8933.1 supported by IA #7177 "RTN","RGMTMONT",13,0) ;Reference to ^XTV(8989.3 supported by IA #7183 "RTN","RGMTMONT",14,0) ; "RTN","RGMTMONT",15,0) EN1 ;Call this routine from the top to do extended checks that include: "RTN","RGMTMONT",16,0) ;- D HLMA1^RGMTUT98 "RTN","RGMTMONT",17,0) ;- D EN2^RGMTMONT "RTN","RGMTMONT",18,0) ;- D ^RGMTMONX "RTN","RGMTMONT",19,0) ; "RTN","RGMTMONT",20,0) I $D(RGHLMQ) Q "RTN","RGMTMONT",21,0) ; "RTN","RGMTMONT",22,0) S DEV=0,EN=1 G START "RTN","RGMTMONT",23,0) ; "RTN","RGMTMONT",24,0) DEV ;call used by developers to display ^RGMTMONX call "RTN","RGMTMONT",25,0) S DEV=1,EN=2 "RTN","RGMTMONT",26,0) ; "RTN","RGMTMONT",27,0) START ; "RTN","RGMTMONT",28,0) S CLUP=1 "RTN","RGMTMONT",29,0) W @IOF,"Logical Link Monitor:",!,"=====================",! "RTN","RGMTMONT",30,0) D HLMA1^RGMTUT98 "RTN","RGMTMONT",31,0) S DIR(0)="E" D D ^DIR K DIR "RTN","RGMTMONT",32,0) .S SS=22-$Y F JJ=1:1:SS W ! "RTN","RGMTMONT",33,0) I $D(DIRUT) G QUIT "RTN","RGMTMONT",34,0) ; "RTN","RGMTMONT",35,0) D EN2 "RTN","RGMTMONT",36,0) S DIR(0)="E" D D ^DIR K DIR "RTN","RGMTMONT",37,0) .S SS=22-$Y F JJ=1:1:SS W ! "RTN","RGMTMONT",38,0) I $D(DIRUT) G QUIT "RTN","RGMTMONT",39,0) ; "RTN","RGMTMONT",40,0) I $G(EN)'=1 D ^RGMTMONX "RTN","RGMTMONT",41,0) ; "RTN","RGMTMONT",42,0) K EN,DEV G QUIT "RTN","RGMTMONT",43,0) ; "RTN","RGMTMONT",44,0) EN2 ;Monitor Background Job - VAFC BATCH UPDATE "RTN","RGMTMONT",45,0) ;Monitor Background Job - MPIF LOC/MIS ICN RES "RTN","RGMTMONT",46,0) ;Check MAS PARAMETER file, field SEND PIMS HL7 V2.3 MESSAGES "RTN","RGMTMONT",47,0) ;if call is being made from HL7 query, variable RGHLMQ will be defined "RTN","RGMTMONT",48,0) S ^XTMP("RGMT",0)=$$FMADD^XLFDT(DT,30)_"^"_$$NOW^XLFDT_"^MPI/PD Maintenance Data" "RTN","RGMTMONT",49,0) K ^XTMP("RGMT","HLMQMONT") "RTN","RGMTMONT",50,0) I '$D(DEV) S DEV=0 "RTN","RGMTMONT",51,0) S LOCSITE=$P($$SITE^VASITE(),"^",3) "RTN","RGMTMONT",52,0) I $D(RGHLMQ) D "RTN","RGMTMONT",53,0) .D NOW^%DTC "RTN","RGMTMONT",54,0) .S ^XTMP("RGMT","HLMQMONT",LOCSITE,"@@ RUNDATE")=$$FMTE^XLFDT($E(%,1,12)) "RTN","RGMTMONT",55,0) I '$D(RGHLMQ) W @IOF,"MPI/PD Process Monitor:",!,"=======================" "RTN","RGMTMONT",56,0) S TXTCNT=0 "RTN","RGMTMONT",57,0) N BKDA,CUR,MSG,SCHDA,SEND,TIME "RTN","RGMTMONT",58,0) CHK1 ; "RTN","RGMTMONT",59,0) S TXT="Checking VAFC BATCH UPDATE background job..." D TXT "RTN","RGMTMONT",60,0) D PIV^RGMTUT98 "RTN","RGMTMONT",61,0) S TXTCNT=3 "RTN","RGMTMONT",62,0) ; "RTN","RGMTMONT",63,0) S DIC="^DIC(19,",X="VAFC BATCH UPDATE" D ^DIC K DIC S BKDA=+Y "RTN","RGMTMONT",64,0) I BKDA<0 S TXT="=> VAFC BATCH UPDATE does not exist in OPTION file." D TXT K BKDA G CHK2 "RTN","RGMTMONT",65,0) S TXT="=> VAFC BATCH UPDATE is not currently scheduled to run." "RTN","RGMTMONT",66,0) S DIC="^DIC(19.2,",X="VAFC BATCH UPDATE" D ^DIC K DIC S SCHDA=+Y "RTN","RGMTMONT",67,0) I SCHDA<0 D TXT K BKDA,TXT,SCHDA G CHK2 "RTN","RGMTMONT",68,0) S TIME=$$GET1^DIQ(19.2,SCHDA_",",2) "RTN","RGMTMONT",69,0) I TIME="" D TXT K BKDA,TXT,SCHDA,TIME G CHK2 "RTN","RGMTMONT",70,0) S TXT="=> VAFC BATCH UPDATE scheduled to run "_$$FMTE^XLFDT(TIME)_"." "RTN","RGMTMONT",71,0) D TXT "RTN","RGMTMONT",72,0) D NOW^%DTC "RTN","RGMTMONT",73,0) S DAY=$E(%,1,7) "RTN","RGMTMONT",74,0) ; "RTN","RGMTMONT",75,0) CHK2 ; "RTN","RGMTMONT",76,0) S TXT="" D TXT "RTN","RGMTMONT",77,0) ; "RTN","RGMTMONT",78,0) S ICN=0,CNT=0 "RTN","RGMTMONT",79,0) F S ICN=$O(^DPT("AICNL",1,ICN)) Q:'ICN S CNT=CNT+1 "RTN","RGMTMONT",80,0) S TXT="Checking MPIF LOC/MIS ICN RES background job... (Total Local ICNs = "_CNT_")" "RTN","RGMTMONT",81,0) D TXT "RTN","RGMTMONT",82,0) ; "RTN","RGMTMONT",83,0) S DIC="^DIC(19,",X="MPIF LOC/MIS ICN RES" D ^DIC K DIC S BKDA=+Y "RTN","RGMTMONT",84,0) I BKDA<0 S TXT="=> MPIF LOC/MIS ICN RES does not exist in OPTION file." D TXT K BKDA G CHK2A "RTN","RGMTMONT",85,0) S TXT="=> MPIF LOC/MIS ICN RES is not currently scheduled to run." "RTN","RGMTMONT",86,0) S DIC="^DIC(19.2,",X="MPIF LOC/MIS ICN RES" D ^DIC K DIC S SCHDA=+Y "RTN","RGMTMONT",87,0) I SCHDA<0 D TXT K BKDA,SCHDA G CHK2A "RTN","RGMTMONT",88,0) S TIME=$$GET1^DIQ(19.2,SCHDA_",",2) "RTN","RGMTMONT",89,0) I TIME="" D TXT K BKDA,SCHDA,TIME G CHK2A "RTN","RGMTMONT",90,0) S TXT="=> MPIF LOC/MIS ICN RES is scheduled to run "_$$FMTE^XLFDT(TIME)_"." "RTN","RGMTMONT",91,0) D TXT "RTN","RGMTMONT",92,0) ; "RTN","RGMTMONT",93,0) CHK2A ;check for time local/missing job was last run "RTN","RGMTMONT",94,0) S TIME=$P($G(^RGSITE(991.8,1,0)),"^",4) I TIME'="" D "RTN","RGMTMONT",95,0) .S TIME=$$FMTE^XLFDT(TIME) "RTN","RGMTMONT",96,0) .S TXT="=> MPIF LOC/MIS ICN RES was last run "_TIME_"." "RTN","RGMTMONT",97,0) .D TXT "RTN","RGMTMONT",98,0) ; "RTN","RGMTMONT",99,0) CHK2B ;**75 - STORY 1203257 (dri) New Person Field Monitor Batch Update for daily stat report "RTN","RGMTMONT",100,0) S TXT="" D TXT "RTN","RGMTMONT",101,0) S TXT="Checking XUS IAM NPFM BATCH UPDATE background job..." D TXT "RTN","RGMTMONT",102,0) ; "RTN","RGMTMONT",103,0) N RGCNT,RGIEN,RGUSER "RTN","RGMTMONT",104,0) S RGCNT=0,RGUSER=0 F S RGUSER=$O(^XTV(8933.1,"ACXMIT",RGUSER)) Q:'RGUSER D "RTN","RGMTMONT",105,0) .S RGIEN=0 F S RGIEN=$O(^XTV(8933.1,"ACXMIT",RGUSER,RGIEN)) Q:'RGIEN S RGCNT=RGCNT+1 "RTN","RGMTMONT",106,0) S TXT="(Total NEW PERSON UPDATES waiting to be processed = "_RGCNT_")" "RTN","RGMTMONT",107,0) D TXT "RTN","RGMTMONT",108,0) ; "RTN","RGMTMONT",109,0) S DIC="^DIC(19,",X="XUS IAM NPFM BATCH UPDATE" D ^DIC K DIC S BKDA=+Y "RTN","RGMTMONT",110,0) I BKDA<0 S TXT="=> XUS IAM NPFM BATCH UPDATE does not exist in OPTION file." D TXT K BKDA G CHK2C "RTN","RGMTMONT",111,0) S TXT="=> XUS IAM NPFM BATCH UPDATE is not currently scheduled to run." "RTN","RGMTMONT",112,0) S DIC="^DIC(19.2,",X="XUS IAM NPFM BATCH UPDATE" D ^DIC K DIC S SCHDA=+Y "RTN","RGMTMONT",113,0) I SCHDA<0 D TXT K BKDA,TXT,SCHDA G CHK2C "RTN","RGMTMONT",114,0) S TIME=$$GET1^DIQ(19.2,SCHDA_",",2) "RTN","RGMTMONT",115,0) I TIME="" D TXT K BKDA,TXT,SCHDA,TIME G CHK2C "RTN","RGMTMONT",116,0) S TXT="=> XUS IAM NPFM BATCH UPDATE scheduled to run "_$$FMTE^XLFDT(TIME)_"." "RTN","RGMTMONT",117,0) D TXT "RTN","RGMTMONT",118,0) ; "RTN","RGMTMONT",119,0) CHK2C ;**75 - STORY 1203257 (dri) New Person Field Monitor Purge for daily stat report "RTN","RGMTMONT",120,0) S TXT="" D TXT "RTN","RGMTMONT",121,0) S TXT="Checking XUS IAM NPFM PURGE background job..." D TXT "RTN","RGMTMONT",122,0) ; "RTN","RGMTMONT",123,0) N RGDAT,RGCNT,RGDOMIEN,RGMIEN,RGPRGDAY,RGRETDAT,RGUSER,X1,X2 "RTN","RGMTMONT",124,0) S RGDOMIEN=$O(^XTV(8989.3,0)) I 'RGDOMIEN G CHK3 ;domain "RTN","RGMTMONT",125,0) S RGPRGDAY=$$GET1^DIQ(8989.3,RGDOMIEN_",",875,"I") ;new person field monitor purge - days of transmitted data to retain. "RTN","RGMTMONT",126,0) I 'RGPRGDAY S RGPRGDAY=365 ;default if not defined "RTN","RGMTMONT",127,0) S X1=DT,X2=-RGPRGDAY D C^%DTC S RGRETDAT=X ;retain date "RTN","RGMTMONT",128,0) ; "RTN","RGMTMONT",129,0) S RGCNT=0,RGDAT=0 F S RGDAT=$O(^XTV(8933.1,"B",RGDAT)) Q:'RGDAT!(RGDAT>RGRETDAT) D "RTN","RGMTMONT",130,0) .S RGMIEN=0 F S RGMIEN=$O(^XTV(8933.1,"B",RGDAT,RGMIEN)) Q:'RGMIEN S RGUSER=+$P($G(^XTV(8933.1,RGMIEN,0)),"^",2) I '$D(^XTV(8933.1,"ACXMIT",RGUSER,RGMIEN)) S RGCNT=RGCNT+1 ;count if not pending transmission "RTN","RGMTMONT",131,0) S TXT="(Total NEW PERSON UPDATES waiting to be purged = "_RGCNT_")" "RTN","RGMTMONT",132,0) D TXT "RTN","RGMTMONT",133,0) ; "RTN","RGMTMONT",134,0) S DIC="^DIC(19,",X="XUS IAM NPFM PURGE" D ^DIC K DIC S BKDA=+Y "RTN","RGMTMONT",135,0) I BKDA<0 S TXT="=> XUS IAM NPFM PURGE does not exist in OPTION file." D TXT K BKDA G CHK3 "RTN","RGMTMONT",136,0) S TXT="=> XUS IAM NPFM PURGE is not currently scheduled to run." "RTN","RGMTMONT",137,0) S DIC="^DIC(19.2,",X="XUS IAM NPFM PURGE" D ^DIC K DIC S SCHDA=+Y "RTN","RGMTMONT",138,0) I SCHDA<0 D TXT K BKDA,TXT,SCHDA G CHK3 "RTN","RGMTMONT",139,0) S TIME=$$GET1^DIQ(19.2,SCHDA_",",2) "RTN","RGMTMONT",140,0) I TIME="" D TXT K BKDA,TXT,SCHDA,TIME G CHK3 "RTN","RGMTMONT",141,0) S TXT="=> XUS IAM NPFM PURGE scheduled to run "_$$FMTE^XLFDT(TIME)_"." "RTN","RGMTMONT",142,0) D TXT "RTN","RGMTMONT",143,0) ; "RTN","RGMTMONT",144,0) CHK3 ;Check to see if .01 field in patient file has auditing turned on "RTN","RGMTMONT",145,0) S TXT="" D TXT "RTN","RGMTMONT",146,0) D FIELD^DID(2,.01,"","AUDIT","PATAUD") "RTN","RGMTMONT",147,0) S PATAUD=$G(PATAUD("AUDIT")) I PATAUD="" S PATAUD="NOT SET" "RTN","RGMTMONT",148,0) S PATAUD="<<"_PATAUD_">>" "RTN","RGMTMONT",149,0) S TXT="=> Audit on NAME (#.01) field of PATIENT (#2) file set to "_PATAUD "RTN","RGMTMONT",150,0) D TXT "RTN","RGMTMONT",151,0) K PATAUD "RTN","RGMTMONT",152,0) ; "RTN","RGMTMONT",153,0) CHK5 ; "RTN","RGMTMONT",154,0) S TXT="" D TXT "RTN","RGMTMONT",155,0) ; "RTN","RGMTMONT",156,0) S TXT="Checking SEND Parameters for HL7 messaging..." "RTN","RGMTMONT",157,0) D TXT "RTN","RGMTMONT",158,0) ; "RTN","RGMTMONT",159,0) S SEND=$P($$SEND^VAFHUTL,"^",2) "RTN","RGMTMONT",160,0) S CUR=$S(SEND=1:"SEND MESSAGES",SEND=0:"STOP MESSAGES",SEND=2:"SUSPEND MESSAGES",1:"NULL") "RTN","RGMTMONT",161,0) S TXT="=> SEND PIMS HL7 V2.3 MESSAGES currently set to << "_CUR_" >>." "RTN","RGMTMONT",162,0) D TXT "RTN","RGMTMONT",163,0) ; "RTN","RGMTMONT",164,0) S TXT="=> STOP MPI/PD MESSAGING currently set to " "RTN","RGMTMONT",165,0) S SEND=$P($G(^RGSITE(991.8,1,1)),"^",6) "RTN","RGMTMONT",166,0) S CUR=$S(SEND=1:"SEND MESSAGES",SEND=0:"STOP MESSAGES",SEND=2:"SUSPEND MESSAGES",1:"NULL") "RTN","RGMTMONT",167,0) S TXT="=> STOP MPI/PD MESSAGING currently set to << "_CUR_" >>." "RTN","RGMTMONT",168,0) D TXT "RTN","RGMTMONT",169,0) ; "RTN","RGMTMONT",170,0) CHK6 ; "RTN","RGMTMONT",171,0) K RGMT "RTN","RGMTMONT",172,0) S LOC=$P($$SITE^VASITE(),"^") "RTN","RGMTMONT",173,0) D LINK^HLUTIL3(LOC,.RGMT) "RTN","RGMTMONT",174,0) S LOCIEN=$O(RGMT(0)) "RTN","RGMTMONT",175,0) I 'LOCIEN D G QUIT "RTN","RGMTMONT",176,0) .S TXT="^DIC(4,""AC"" xref problem. Check ^DIC(4,""AC"",,"_LOC "RTN","RGMTMONT",177,0) .D TXT "RTN","RGMTMONT",178,0) S LOCLINK=RGMT(LOCIEN) "RTN","RGMTMONT",179,0) ; "RTN","RGMTMONT",180,0) S TXT="" D TXT "RTN","RGMTMONT",181,0) ; "RTN","RGMTMONT",182,0) S TXT="Checking SHUTDOWN LLP? field and TCP/IP SERVICE TYPE for "_LOCLINK_"..." "RTN","RGMTMONT",183,0) D TXT "RTN","RGMTMONT",184,0) ; "RTN","RGMTMONT",185,0) S CUR=$$GET1^DIQ(870,LOCIEN_",",14) "RTN","RGMTMONT",186,0) S TXT="=> SHUTDOWN LLP? currently set to << "_CUR_" >>." "RTN","RGMTMONT",187,0) D TXT "RTN","RGMTMONT",188,0) ; "RTN","RGMTMONT",189,0) S CUR=$$GET1^DIQ(870,LOCIEN_",",400.03) "RTN","RGMTMONT",190,0) S TXT="=> TCP/IP SERVICE TYPE currently set to << "_CUR_" >>." "RTN","RGMTMONT",191,0) D TXT "RTN","RGMTMONT",192,0) ; "RTN","RGMTMONT",193,0) ;check MPIVA for LLP TYPE "RTN","RGMTMONT",194,0) S DIC="^HLCS(870,",X="MPIVA" D ^DIC K DIC S MPILL=+Y "RTN","RGMTMONT",195,0) S CUR=$$GET1^DIQ(870,MPILL_",",2) "RTN","RGMTMONT",196,0) S TXT="=> Logical Link MPIVA currently set to << "_CUR_" >>." "RTN","RGMTMONT",197,0) D TXT "RTN","RGMTMONT",198,0) ; "RTN","RGMTMONT",199,0) ;check to see if Link Manager is running "RTN","RGMTMONT",200,0) S LMSTAT=$$STAT^HLCSLM "RTN","RGMTMONT",201,0) S CUR=$S('LMSTAT:"NOT RUNNING",1:"RUNNING") "RTN","RGMTMONT",202,0) S TXT="=> HL LINK MANAGER is currently << "_CUR_" >>." "RTN","RGMTMONT",203,0) D TXT "RTN","RGMTMONT",204,0) ;check to see if RG QUEUE is okay "RTN","RGMTMONT",205,0) S TXT="Checking Resource Device - RG QUEUE" D TXT "RTN","RGMTMONT",206,0) N RGEN S RGEN=$O(^%ZISL(3.54,"B","RG QUEUE","")) "RTN","RGMTMONT",207,0) I RGEN="" S TXT="=> No RG QUEUE resource device" "RTN","RGMTMONT",208,0) I RGEN>0 S TXT="=> RG QUEUE, SLOTS AVAILABLE: "_$P(^%ZISL(3.54,RGEN,0),"^",2) "RTN","RGMTMONT",209,0) D TXT "RTN","RGMTMONT",210,0) ; "RTN","RGMTMONT",211,0) FLDLIST ;capture fields being audited "RTN","RGMTMONT",212,0) I $D(RGHLMQ) D "RTN","RGMTMONT",213,0) .S AUDCNT=0 "RTN","RGMTMONT",214,0) .S ^XTMP("RGMT","HLMQMONT",LOCSITE,"AUDIT",0)="Compiled: "_$$FMTE^XLFDT($$NOW^XLFDT) "RTN","RGMTMONT",215,0) .S FLDLP=0 F S FLDLP=$O(^DD(2,"AUDIT",FLDLP)) Q:'FLDLP D "RTN","RGMTMONT",216,0) ..S AUDCNT=AUDCNT+1 "RTN","RGMTMONT",217,0) ..K RGARR D FIELD^DID(2,FLDLP,"","LABEL","RGARR") "RTN","RGMTMONT",218,0) ..S FLDNM=$G(RGARR("LABEL")) Q:FLDNM="" "RTN","RGMTMONT",219,0) ..S ^XTMP("RGMT","HLMQMONT",LOCSITE,"AUDIT",AUDCNT)=FLDLP_"^"_FLDNM "RTN","RGMTMONT",220,0) ; "RTN","RGMTMONT",221,0) I $D(CLUP),$D(DIRUT) Q "RTN","RGMTMONT",222,0) ; "RTN","RGMTMONT",223,0) QUIT ; "RTN","RGMTMONT",224,0) K %,BKDA,CLUP,CNT,CUR,DAY,DIR,DIRUT,ICN,JJ,LMSTAT,LOC,LOCIEN,LOCLINK "RTN","RGMTMONT",225,0) K LOCSITE,MPILL,MSG,PATAUD,RGHLMQ,RGMT,SCHDA,SEND,SS,TIME,TXT,TXTCNT,X,Y "RTN","RGMTMONT",226,0) K AUDCNT,FLDLP,RGARR,FLDNM "RTN","RGMTMONT",227,0) Q "RTN","RGMTMONT",228,0) ; "RTN","RGMTMONT",229,0) TXT ; "RTN","RGMTMONT",230,0) S TXTCNT=TXTCNT+1 "RTN","RGMTMONT",231,0) I '$D(RGHLMQ) W !,TXT "RTN","RGMTMONT",232,0) I $D(RGHLMQ) S ^XTMP("RGMT","HLMQMONT",LOCSITE,TXTCNT)=TXT "RTN","RGMTMONT",233,0) Q "VER") 8.0^22.2 "BLD",3502,6) ^76 **END** **END**