PXIPOST1 ;ISL/dee - POST ROUTINE FOR PX PACKAGE ;8/6/96
;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
;
PROTOCOL ;
N DIC,DA,MENU,NAMEIEN,X,Y,LABEL,PROTOCOL,OFFSET
S DIC(0)="LSX"
S DIC("P")=$P(^DD(101,10,0),"^",2)
F LABEL="SDAMLIST","MHIDDEN","AEHIDDEN" D
. S MENU=$P($T(@(LABEL)),";;",2) Q:MENU=""
. D BMES^XPDUTL("Adding items to "_MENU_" protocol.")
. S DA(1)=$O(^ORD(101,"B",MENU,0))
. I DA(1)>0 D
.. S DIC="^ORD(101,"_DA(1)_",10,"
.. F OFFSET=1:1 S PROTOCOL=$P($T(@(LABEL)+OFFSET),";;",2) Q:PROTOCOL="" D
... S X=$P(PROTOCOL,"~",1)
... S DIC("DR")=$P(PROTOCOL,"~",2)
... S NAMEIEN=$O(^ORD(101,"B",X,0))
... I NAMEIEN>0,$O(^ORD(101,DA(1),10,"B",NAMEIEN,0))'>0 D MES^XPDUTL(" "_X) D ^DIC
K DIC,DA,X,Y
;
S DIC(0)="LSX"
S DIC("P")=$P(^DD(101,10,0),"^",2)
F X="GMTS HS ADHOC","GMPL OE DATA ENTRY","GMRP REVIEW SCREEN" D
. D BMES^XPDUTL("Adding item to PXCE "_X_" protocol.")
. S DA(1)=$O(^ORD(101,"B","PXCE "_X,0))
. I DA(1)>0 D
.. S DIC="^ORD(101,"_DA(1)_",10,"
.. S NAMEIEN=$O(^ORD(101,"B",X,0))
.. I NAMEIEN>0,$O(^ORD(101,DA(1),10,"B",NAMEIEN,0))'>0 D ^DIC
K DIC,DA,NAMEIEN,X,Y
;
N DIE,DR,PROTNAME
S DIE="^ORD(101,"
S DR="2///@"
D BMES^XPDUTL("Making sure that these protocols are not disabled.")
F OFFSET=1:1 SET PROTNAME=$P($T(ENABLE+OFFSET),";;",2) Q:PROTNAME="" D
. D MES^XPDUTL(" "_PROTNAME)
. S DA=$O(^ORD(101,"B",PROTNAME,0))
. I DA>0 D ^DIE
K DIC,DA,DIE,DR,PROTNAME
;
XQORM ;Recompile protocol menus
D BMES^XPDUTL("Recompile protocol menus used by List Manager.")
N XQORM
F PROTNAME="PXCE MAIN MENU","PXCE MAIN HIDDEN ACTIONS","PXCE SDAM MENU","PXCE SDAM LIST MENU","PXCE ADD/EDIT MENU","PXCE ADD/EDIT HIDDEN" D
. D MES^XPDUTL(" "_PROTNAME)
. S XQORM=$O(^ORD(101,"B",PROTNAME,0))_";ORD(101,"
. D XREF^XQORM
Q
;
ENABLE ;;
;;PXCA DATA EVENT
;;PXCE ADD/EDIT
;;PXCE ADD/EDIT DISPLAY BRIEF
;;PXCE ADD/EDIT DISPLAY DETAIL
;;PXCE ADD/EDIT HIDDEN
;;PXCE ADD/EDIT INTERVIEW
;;PXCE ADD/EDIT KNOWN ENCOUNTER
;;PXCE ADD/EDIT MENU
;;PXCE ADD/EDIT PATIENT CHANGE
;;PXCE ADD/EDIT STOP CODE
;;PXCE BLANK 1
;;PXCE BLANK 2
;;PXCE BLANK 3
;;PXCE BLANK 4
;;PXCE BLANK HS
;;PXCE BLANK PL
;;PXCE BLANK PN
;;PXCE BLANK SELECT NEW PATIENT
;;PXCE CHANGE CLINIC STOP
;;PXCE CHANGE HOSPITAL LOCATION
;;PXCE CPT ADD
;;PXCE DATE CHANGE
;;PXCE DELETE V-FILE
;;PXCE DISPLAY DETAIL
;;PXCE EDIT V-FILE
;;PXCE ENCOUNTER EDIT
;;PXCE ENCOUNTER LIST
;;PXCE EXAM ADD
;;PXCE GMPL OE DATA ENTRY
;;PXCE GMRP REVIEW SCREEN
;;PXCE GMTS HS ADHOC
;;PXCE HEALTH FACTORS ADD
;;PXCE HISTORICAL ENCOUNTER
;;PXCE HOSPITAL LOCATION VIEW
;;PXCE IMMUNIZATION ADD
;;PXCE INTERVIEW
;;PXCE MAIN HIDDEN ACTIONS
;;PXCE MAIN MENU
;;PXCE NEW ENCOUNTER
;;PXCE PATIENT CHANGE
;;PXCE PATIENT ED ADD
;;PXCE POV ADD
;;PXCE PROVIDER ADD
;;PXCE QUIT
;;PXCE QUIT COMPLETELY
;;PXCE SDAM DISPLAY DETAIL
;;PXCE SDAM EXPAND
;;PXCE SDAM INTERVIEW
;;PXCE SDAM LIST
;;PXCE SDAM LIST MENU
;;PXCE SDAM MENU
;;PXCE SDAM STANDALONE
;;PXCE SDAM UPDATE ENCOUNTER
;;PXCE SKIN TEST ADD
;;PXCE TREATMENT ADD
;;PXK CPT-SCH TO V-CPT
;;PXK SDAM TO V-FILES
;;PXK VISIT DATA EVENT
;;
SDAMLIST ;;PXCE SDAM LIST MENU
;;SDAM LIST CHECKED IN~2///CI;3///1
;;SDAM LIST NO SHOWS~2///NS;3///2
;;SDAM LIST ALL~2///TA;3///3
;;SDAM LIST NO ACTION~2///NA;3///4
;;SDAM LIST CANCELLED~2///CA;3///5
;;SDAM LIST FUTURE~2///FU;3///6
;;SDAM LIST INPATIENT~2///IP;3///7
;;SDAM LIST NON-COUNT~2///NC;3///8
;;SDAM LIST CHECKED OUT~2///CO;3///9
;;
MHIDDEN ;;PXCE MAIN HIDDEN ACTIONS
;;VALM NEXT SCREEN~2///+;3///11
;;VALM PREVIOUS SCREEN~2///-;3///12
;;VALM UP ONE LINE~2///UP;3///13
;;VALM DOWN A LINE~2///DN;3///14
;;VALM REFRESH~2///RD;3///24
;;VALM PRINT SCREEN~2///PS;3///25
;;VALM PRINT LIST~2///PL;3///26
;;VALM RIGHT~2///>3///15
;;VALM LEFT~2///<3///16
;;VALM TURN ON/OFF MENUS~2///ADPL;3///32
;;VALM SEARCH LIST~2///SL;3///31
;;VALM LAST SCREEN~2///LS;3///22
;;VALM FIRST SCREEN~2///FS;3///21
;;VALM GOTO PAGE~2///GO;3///23
;;VALM BLANK 2~3///34
;;VALM BLANK 3~3///35
;;VALM BLANK 4~3///36
;;
AEHIDDEN ;;PXCE ADD/EDIT HIDDEN
;;VALM NEXT SCREEN~2///+;3///11
;;VALM PREVIOUS SCREEN~2///-;3///12
;;VALM UP ONE LINE~2///UP;3///13
;;VALM DOWN A LINE~2///DN;3///14
;;VALM REFRESH~2///RD;3///24
;;VALM PRINT SCREEN~2///PS;3///25
;;VALM PRINT LIST~2///PL;3///26
;;VALM RIGHT~2///>3///15
;;VALM LEFT~2///<3///16
;;VALM TURN ON/OFF MENUS~2///ADPL;3///32
;;VALM SEARCH LIST~2///SL;3///31
;;VALM LAST SCREEN~2///LS;3///22
;;VALM FIRST SCREEN~2///FS;3///21
;;VALM GOTO PAGE~2///GO;3///23
;;VALM BLANK 2~2///;3///34
;;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXIPOST1 4730 printed Dec 13, 2024@02:29:06 Page 2
PXIPOST1 ;ISL/dee - POST ROUTINE FOR PX PACKAGE ;8/6/96
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
+2 ;
PROTOCOL ;
+1 NEW DIC,DA,MENU,NAMEIEN,X,Y,LABEL,PROTOCOL,OFFSET
+2 SET DIC(0)="LSX"
+3 SET DIC("P")=$PIECE(^DD(101,10,0),"^",2)
+4 FOR LABEL="SDAMLIST","MHIDDEN","AEHIDDEN"
Begin DoDot:1
+5 SET MENU=$PIECE($TEXT(@(LABEL)),";;",2)
if MENU=""
QUIT
+6 DO BMES^XPDUTL("Adding items to "_MENU_" protocol.")
+7 SET DA(1)=$ORDER(^ORD(101,"B",MENU,0))
+8 IF DA(1)>0
Begin DoDot:2
+9 SET DIC="^ORD(101,"_DA(1)_",10,"
+10 FOR OFFSET=1:1
SET PROTOCOL=$PIECE($TEXT(@(LABEL)+OFFSET),";;",2)
if PROTOCOL=""
QUIT
Begin DoDot:3
+11 SET X=$PIECE(PROTOCOL,"~",1)
+12 SET DIC("DR")=$PIECE(PROTOCOL,"~",2)
+13 SET NAMEIEN=$ORDER(^ORD(101,"B",X,0))
+14 IF NAMEIEN>0
IF $ORDER(^ORD(101,DA(1),10,"B",NAMEIEN,0))'>0
DO MES^XPDUTL(" "_X)
DO ^DIC
End DoDot:3
End DoDot:2
End DoDot:1
+15 KILL DIC,DA,X,Y
+16 ;
+17 SET DIC(0)="LSX"
+18 SET DIC("P")=$PIECE(^DD(101,10,0),"^",2)
+19 FOR X="GMTS HS ADHOC","GMPL OE DATA ENTRY","GMRP REVIEW SCREEN"
Begin DoDot:1
+20 DO BMES^XPDUTL("Adding item to PXCE "_X_" protocol.")
+21 SET DA(1)=$ORDER(^ORD(101,"B","PXCE "_X,0))
+22 IF DA(1)>0
Begin DoDot:2
+23 SET DIC="^ORD(101,"_DA(1)_",10,"
+24 SET NAMEIEN=$ORDER(^ORD(101,"B",X,0))
+25 IF NAMEIEN>0
IF $ORDER(^ORD(101,DA(1),10,"B",NAMEIEN,0))'>0
DO ^DIC
End DoDot:2
End DoDot:1
+26 KILL DIC,DA,NAMEIEN,X,Y
+27 ;
+28 NEW DIE,DR,PROTNAME
+29 SET DIE="^ORD(101,"
+30 SET DR="2///@"
+31 DO BMES^XPDUTL("Making sure that these protocols are not disabled.")
+32 FOR OFFSET=1:1
SET PROTNAME=$PIECE($TEXT(ENABLE+OFFSET),";;",2)
if PROTNAME=""
QUIT
Begin DoDot:1
+33 DO MES^XPDUTL(" "_PROTNAME)
+34 SET DA=$ORDER(^ORD(101,"B",PROTNAME,0))
+35 IF DA>0
DO ^DIE
End DoDot:1
+36 KILL DIC,DA,DIE,DR,PROTNAME
+37 ;
XQORM ;Recompile protocol menus
+1 DO BMES^XPDUTL("Recompile protocol menus used by List Manager.")
+2 NEW XQORM
+3 FOR PROTNAME="PXCE MAIN MENU","PXCE MAIN HIDDEN ACTIONS","PXCE SDAM MENU","PXCE SDAM LIST MENU","PXCE ADD/EDIT MENU","PXCE ADD/EDIT HIDDEN"
Begin DoDot:1
+4 DO MES^XPDUTL(" "_PROTNAME)
+5 SET XQORM=$ORDER(^ORD(101,"B",PROTNAME,0))_";ORD(101,"
+6 DO XREF^XQORM
End DoDot:1
+7 QUIT
+8 ;
ENABLE ;;
+1 ;;PXCA DATA EVENT
+2 ;;PXCE ADD/EDIT
+3 ;;PXCE ADD/EDIT DISPLAY BRIEF
+4 ;;PXCE ADD/EDIT DISPLAY DETAIL
+5 ;;PXCE ADD/EDIT HIDDEN
+6 ;;PXCE ADD/EDIT INTERVIEW
+7 ;;PXCE ADD/EDIT KNOWN ENCOUNTER
+8 ;;PXCE ADD/EDIT MENU
+9 ;;PXCE ADD/EDIT PATIENT CHANGE
+10 ;;PXCE ADD/EDIT STOP CODE
+11 ;;PXCE BLANK 1
+12 ;;PXCE BLANK 2
+13 ;;PXCE BLANK 3
+14 ;;PXCE BLANK 4
+15 ;;PXCE BLANK HS
+16 ;;PXCE BLANK PL
+17 ;;PXCE BLANK PN
+18 ;;PXCE BLANK SELECT NEW PATIENT
+19 ;;PXCE CHANGE CLINIC STOP
+20 ;;PXCE CHANGE HOSPITAL LOCATION
+21 ;;PXCE CPT ADD
+22 ;;PXCE DATE CHANGE
+23 ;;PXCE DELETE V-FILE
+24 ;;PXCE DISPLAY DETAIL
+25 ;;PXCE EDIT V-FILE
+26 ;;PXCE ENCOUNTER EDIT
+27 ;;PXCE ENCOUNTER LIST
+28 ;;PXCE EXAM ADD
+29 ;;PXCE GMPL OE DATA ENTRY
+30 ;;PXCE GMRP REVIEW SCREEN
+31 ;;PXCE GMTS HS ADHOC
+32 ;;PXCE HEALTH FACTORS ADD
+33 ;;PXCE HISTORICAL ENCOUNTER
+34 ;;PXCE HOSPITAL LOCATION VIEW
+35 ;;PXCE IMMUNIZATION ADD
+36 ;;PXCE INTERVIEW
+37 ;;PXCE MAIN HIDDEN ACTIONS
+38 ;;PXCE MAIN MENU
+39 ;;PXCE NEW ENCOUNTER
+40 ;;PXCE PATIENT CHANGE
+41 ;;PXCE PATIENT ED ADD
+42 ;;PXCE POV ADD
+43 ;;PXCE PROVIDER ADD
+44 ;;PXCE QUIT
+45 ;;PXCE QUIT COMPLETELY
+46 ;;PXCE SDAM DISPLAY DETAIL
+47 ;;PXCE SDAM EXPAND
+48 ;;PXCE SDAM INTERVIEW
+49 ;;PXCE SDAM LIST
+50 ;;PXCE SDAM LIST MENU
+51 ;;PXCE SDAM MENU
+52 ;;PXCE SDAM STANDALONE
+53 ;;PXCE SDAM UPDATE ENCOUNTER
+54 ;;PXCE SKIN TEST ADD
+55 ;;PXCE TREATMENT ADD
+56 ;;PXK CPT-SCH TO V-CPT
+57 ;;PXK SDAM TO V-FILES
+58 ;;PXK VISIT DATA EVENT
+59 ;;
SDAMLIST ;;PXCE SDAM LIST MENU
+1 ;;SDAM LIST CHECKED IN~2///CI;3///1
+2 ;;SDAM LIST NO SHOWS~2///NS;3///2
+3 ;;SDAM LIST ALL~2///TA;3///3
+4 ;;SDAM LIST NO ACTION~2///NA;3///4
+5 ;;SDAM LIST CANCELLED~2///CA;3///5
+6 ;;SDAM LIST FUTURE~2///FU;3///6
+7 ;;SDAM LIST INPATIENT~2///IP;3///7
+8 ;;SDAM LIST NON-COUNT~2///NC;3///8
+9 ;;SDAM LIST CHECKED OUT~2///CO;3///9
+10 ;;
MHIDDEN ;;PXCE MAIN HIDDEN ACTIONS
+1 ;;VALM NEXT SCREEN~2///+;3///11
+2 ;;VALM PREVIOUS SCREEN~2///-;3///12
+3 ;;VALM UP ONE LINE~2///UP;3///13
+4 ;;VALM DOWN A LINE~2///DN;3///14
+5 ;;VALM REFRESH~2///RD;3///24
+6 ;;VALM PRINT SCREEN~2///PS;3///25
+7 ;;VALM PRINT LIST~2///PL;3///26
+8 ;;VALM RIGHT~2///>3///15
+9 ;;VALM LEFT~2///<3///16
+10 ;;VALM TURN ON/OFF MENUS~2///ADPL;3///32
+11 ;;VALM SEARCH LIST~2///SL;3///31
+12 ;;VALM LAST SCREEN~2///LS;3///22
+13 ;;VALM FIRST SCREEN~2///FS;3///21
+14 ;;VALM GOTO PAGE~2///GO;3///23
+15 ;;VALM BLANK 2~3///34
+16 ;;VALM BLANK 3~3///35
+17 ;;VALM BLANK 4~3///36
+18 ;;
AEHIDDEN ;;PXCE ADD/EDIT HIDDEN
+1 ;;VALM NEXT SCREEN~2///+;3///11
+2 ;;VALM PREVIOUS SCREEN~2///-;3///12
+3 ;;VALM UP ONE LINE~2///UP;3///13
+4 ;;VALM DOWN A LINE~2///DN;3///14
+5 ;;VALM REFRESH~2///RD;3///24
+6 ;;VALM PRINT SCREEN~2///PS;3///25
+7 ;;VALM PRINT LIST~2///PL;3///26
+8 ;;VALM RIGHT~2///>3///15
+9 ;;VALM LEFT~2///<3///16
+10 ;;VALM TURN ON/OFF MENUS~2///ADPL;3///32
+11 ;;VALM SEARCH LIST~2///SL;3///31
+12 ;;VALM LAST SCREEN~2///LS;3///22
+13 ;;VALM FIRST SCREEN~2///FS;3///21
+14 ;;VALM GOTO PAGE~2///GO;3///23
+15 ;;VALM BLANK 2~2///;3///34
+16 ;;
