APSQDI.m

APSQDI ;IHS/ASDS/ENM/POC - QUICK PICK CODES ; 05-DEC-1998 

 ;;6.0;IHS PHARMACY MODIFICATIONS;**3**;FEB 20, 2001

EN ; -- main entry point for APSQDIS

 D EN^VALM("APSQDIS")

 Q

 ;

HDR ; -- header code

 ;S VALMHDR(1)="This is a test header for APSQDIS."

 ;S VALMHDR(2)="This is the second line"

 S VALMHDR(1)="SELECTION OF QUICK PICK CODES"

 Q

 ;

INIT ; -- init variables and list array

 ;F LINE=1:1:30 D SET^VALM10(LINE,LINE_"     Line number "_LINE)

 ;D ^APSQDISP

 I '$O(^APSQFA("A"),-1) D EXIT S PSONEW("DFLG")=1 Q  ;IHS/OKCAO/POC 8/18/2000

 D EN2^APSQDI1

 ;S VALMCNT=30

 S VALMCNT=APSQCNT

 Q

 ;

HELP ; -- help code

 S X="?" D DISP^XQORM1 W !!

 Q

 ;

EXIT ; -- exit code

 ;M APSQ("PICK")=APSQ("GOT")

 ;K APSQ("GOT")

 K APSQ,APSQARR

 K APSQBEG,APSQEND,APSQCNT,APSQLAST,APSQEXP,APSQEXP1,APSQLIST,APSQLIS1

 K APSQLKUP,APSQNAME,APSQGOT,APSQGOT1,APSQGOTT,APSQIEN,APSQKILL

 K APSQSEC,APSQSEQ,APSQY

 Q

 ;

EXPND ; -- expand code

 Q

 ;

APSQDI    ;IHS/ASDS/ENM/POC - QUICK PICK CODES ; 05-DEC-1998 

 +1       ;;6.0;IHS PHARMACY MODIFICATIONS;**3**;FEB 20, 2001

EN        ; -- main entry point for APSQDIS

 +1        DO EN^VALM("APSQDIS")

 +2        QUIT 

 +3       ;

HDR       ; -- header code

 +1       ;S VALMHDR(1)="This is a test header for APSQDIS."

 +2       ;S VALMHDR(2)="This is the second line"

 +3        SET VALMHDR(1)="SELECTION OF QUICK PICK CODES"

 +4        QUIT 

 +5       ;

INIT      ; -- init variables and list array

 +1       ;F LINE=1:1:30 D SET^VALM10(LINE,LINE_"     Line number "_LINE)

 +2       ;D ^APSQDISP

 +3       ;IHS/OKCAO/POC 8/18/2000

           IF '$ORDER(^APSQFA("A"),-1)

               DO EXIT

               SET PSONEW("DFLG")=1

               QUIT 

 +4        DO EN2^APSQDI1

 +5       ;S VALMCNT=30

 +6        SET VALMCNT=APSQCNT

 +7        QUIT 

 +8       ;

HELP      ; -- help code

 +1        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +2        QUIT 

 +3       ;

EXIT      ; -- exit code

 +1       ;M APSQ("PICK")=APSQ("GOT")

 +2       ;K APSQ("GOT")

 +3        KILL APSQ,APSQARR

 +4        KILL APSQBEG,APSQEND,APSQCNT,APSQLAST,APSQEXP,APSQEXP1,APSQLIST,APSQLIS1

 +5        KILL APSQLKUP,APSQNAME,APSQGOT,APSQGOT1,APSQGOTT,APSQIEN,APSQKILL

 +6        KILL APSQSEC,APSQSEQ,APSQY

 +7        QUIT 

 +8       ;

EXPND     ; -- expand code

 +1        QUIT 

 +2       ;