Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMTSP067

GMTSP067.m

Go to the documentation of this file.
  1. GMTSP067 ;ISP/RFR - HEALTH SUMMARY PATCH 67 INSTALLATION TASKS ;Oct 16, 2019@11:38
  1. ;;2.7;Health Summary;**67**;Oct 20, 1995;Build 538
  1. Q
  1. POST ;POST-INSTALL
  1. N GMTSIN,GMTSLIM,GMTSINST,GMTSTL,GMTSINST,GMTSTOT,GMTSBLD,GMTSCPS,GMTSCP,GMTSQT
  1. N GMTSCI,INCLUDE,XPDIDTOT
  1. S GMTSCPS="PREG;LAC;PANDL",XPDIDTOT=$L(GMTSCPS,";")+2
  1. D UPDATE^XPDID(0)
  1. F GMTSCI=1:1 Q:'$L($P(GMTSCPS,";",GMTSCI)) D
  1. . S GMTSCP=$P(GMTSCPS,";",GMTSCI)
  1. . D ARRAY Q:'$D(GMTSIN)
  1. . I $L($G(GMTSIN("TIM"))),+($G(GMTSIN(0)))>0 S GMTSLIM(+($G(GMTSIN(0))),"TIM")=$G(GMTSIN("TIM"))
  1. . I $L($G(GMTSIN("OCC"))),+($G(GMTSIN(0)))>0 S GMTSLIM(+($G(GMTSIN(0))),"OCC")=$G(GMTSIN("OCC"))
  1. . S GMTSINST=$$ADD^GMTSXPD1(.GMTSIN),GMTSTOT=+($G(GMTSTOT))+($G(GMTSINST))
  1. . D UPDATE^XPDID(GMTSCI)
  1. ; Rebuild Ad Hoc Health Summary Type
  1. I $G(GMTSTOT)>0 S INCLUDE=+$G(XPDQUES("POS1")) D ENPOST^GMTSLOAD
  1. D LIM
  1. I $L($T(SEND^GMTSXPS1)) D
  1. . N GMTSHORT,XPDIDVT S GMTSHORT=1,GMTSINST="",GMTSBLD=XPDNM D SEND^GMTSXPS1,INIT^XPDID
  1. D UPDATE^XPDID(GMTSCI)
  1. D TITLE,UPDATE^XPDID(XPDIDTOT)
  1. Q
  1. ARRAY ; Build Array
  1. K GMTSIN N GMTSI,GMTSTXT,GMTSEX,GMTSFLD,GMTSUB,GMTSVAL,GMTSPDX S GMTSPDX=1,GMTSCP=$G(GMTSCP) Q:'$L(GMTSCP)
  1. F GMTSI=1:1 D Q:'$L(GMTSTXT)
  1. . S GMTSTXT="",GMTSEX="S GMTSTXT=$T("_GMTSCP_"+"_GMTSI_")" X GMTSEX S:$L(GMTSTXT,";")'>3 GMTSTXT="" Q:'$L(GMTSTXT)
  1. . S GMTSFLD=$P(GMTSTXT,";",2),GMTSUB=$P(GMTSTXT,";",3),GMTSVAL=$P(GMTSTXT,";",4)
  1. . S:$E(GMTSFLD,1)=1&(+GMTSFLD<2) GMTSVAL=$P(GMTSTXT,";",4,5)
  1. . S:$E(GMTSFLD,1)=" "!('$L(GMTSFLD)) GMTSTXT="" Q:GMTSTXT=""
  1. . S:$L(GMTSFLD)&('$L(GMTSUB)) GMTSIN(GMTSFLD)=GMTSVAL Q:$L(GMTSFLD)&('$L(GMTSUB))
  1. . S:$L(GMTSFLD)&($L(GMTSUB)) GMTSIN(GMTSFLD,GMTSUB)=GMTSVAL
  1. . S:$G(GMTSFLD)=7&(+($G(GMTSUB))>0) GMTSPDX=0
  1. K:+($G(GMTSPDX))=0 GMTSIN("PDX")
  1. Q
  1. LIM ; Limits
  1. N GMTSI,GMTST,GMTSO,GMTSA S GMTSI=0 F S GMTSI=$O(GMTSLIM(GMTSI)) Q:+GMTSI=0 D
  1. . S GMTSA=$P($G(^GMT(142.1,+($G(GMTSI)),0)),"^",3),GMTST=$G(GMTSLIM(+GMTSI,"TIM")) S:'$L(GMTST) GMTST=$S(GMTSA="Y ":"1Y ",1:"")
  1. . S GMTSA=$P($G(^GMT(142.1,+($G(GMTSI)),0)),"^",5),GMTSO=$G(GMTSLIM(+GMTSI,"OCC")) S:'$L(GMTSO) GMTSO=$S(GMTSA="Y ":"10 ",1:"")
  1. . D TO^GMTSXPD3(GMTSI,GMTST,GMTSO)
  1. Q
  1. TITLE ;set title for HST
  1. D BMES^XPDUTL(" Setting TITLE for VA-PT RECORD FLAG STATUS")
  1. N GMTSTTL,GMTSIEN S GMTSTTL="PT RECORD FLAG STATUS"
  1. S GMTSIEN=$O(^GMT(142,"B","VA-PT RECORD FLAG STATUS",""))
  1. I +$G(GMTSIEN)'>0 D Q
  1. .D BMES^XPDUTL(" Health Summary Type VA-PT RECORD FLAG STATUS not found.")
  1. .D MES^XPDUTL(" Contact VA National Service Desk for assistance.")
  1. N DIE,DA,DR
  1. S DIE=142,DA=GMTSIEN,DR=".02////PT RECORD FLAG STATUS"
  1. L +^GMT(142,DA):DILOCKTM
  1. D ^DIE
  1. L -^GMT(142,DA):DILOCKTM
  1. D MES^XPDUTL(" TITLE successfully set")
  1. Q
  1. PREG ;Component Data
  1. ;0;;259
  1. ;.01;;WH PREGNANCY DOCUMENTATION
  1. ;1;;PDOC;GMTSWVC1
  1. ;1.1;;1
  1. ;1.1;1;GETDATA;WVRPCPT(SUB,DFN,TYP,BEG,END,NUM)
  1. ;2;;1
  1. ;3;;WHP
  1. ;3.5;;3
  1. ;3.5;1;This component displays the pregnancy data stored in the Women's Health
  1. ;3.5;2;package for a particular patient. The user can specify time and
  1. ;3.5;3;occurrence limits.
  1. ;4;;1
  1. ;5;;
  1. ;6;;
  1. ;7;;0
  1. ;8;;
  1. ;9;;Pregnancy Status
  1. ;10;;
  1. ;11;;
  1. ;12;;
  1. ;13;;
  1. ;14;;
  1. ;PDX;;1
  1. Q
  1. ;
  1. LAC ;Component Data
  1. ;0;;260
  1. ;.01;;WH LACTATION DOCUMENTATION
  1. ;1;;LDOC;GMTSWVC1
  1. ;1.1;;1
  1. ;1.1;1;GETDATA;WVRPCPT(SUB,DFN,TYP,BEG,END,NUM)
  1. ;2;;1
  1. ;3;;WHL
  1. ;3.5;;3
  1. ;3.5;1;This component displays the lactation data stored in the Women's Health
  1. ;3.5;2;package for a particular patient. The user can specify time and
  1. ;3.5;3;occurrence limits.
  1. ;4;;1
  1. ;5;;
  1. ;6;;
  1. ;7;;0
  1. ;8;;
  1. ;9;;Lactation Status
  1. ;10;;
  1. ;11;;
  1. ;12;;
  1. ;13;;
  1. ;14;;
  1. ;PDX;;1
  1. Q
  1. ;
  1. PANDL ;Component Data
  1. ;0;;266
  1. ;.01;;WH PREGNANCY & LACTATION DOC
  1. ;1;;ALL;GMTSWVC1
  1. ;1.1;;1
  1. ;1.1;1;GETDATA;WVRPCPT(SUB,DFN,TYP,BEG,END,NUM)
  1. ;2;;1
  1. ;3;;WHPL
  1. ;3.5;;3
  1. ;3.5;1;This component displays the pregnancy and lactation data stored in the
  1. ;3.5;2;Women's Health package for a particular patient. The user can specify
  1. ;3.5;3;time and occurrence limits.
  1. ;4;;1
  1. ;5;;
  1. ;6;;
  1. ;7;;0
  1. ;8;;
  1. ;9;;Preg. & Lac. Status
  1. ;10;;
  1. ;11;;
  1. ;12;;
  1. ;13;;
  1. ;14;;
  1. ;PDX;;1
  1. Q
  1. ;