PXIPOST1.m

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 ---PXIPOST1   4730     printed  Feb 18, 2025@23:55:23                                                                                                                                                                                                    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      ;;