BMCSKEL.m

BMCSKEL ; IHS/PHXAO/TMJ - SKELETON ROUTINE ;

 ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006

 ;

 ; See ^BMCVDOC for system wide variables set by main menu

 ;

 ; Subscripted BMCREC is EXTERNAL form.

 ;   BMCREC("PAT NAME")=patient name

 ;   BMCREC("REF DATE")=referral date

 ;   BMCDFN=patient ien

 ;   BMCRDATE=referral date in internal FileMan form

 ;   BMCRNUMB=referral number

 ;   BMCRIEN=referral ien

 ;   BMCRTYPE=type of referral (.04 field)

 ;   BMCRIO=Inpatient or Outpatient (.14 field)

 ;

START ;

 D:$G(BMCPARM)="" PARMSET^BMC

 F  D MAIN Q:BMCQ  D HDR^BMC

 D EOJ

 Q

 ;

MAIN ;

 S BMCQ=0

 D INIT

 Q:BMCQ

 D XXXX

 Q

 ;

XXXX ;

 Q

 ;

INIT ; INITIALIZAION

 Q

 ;

EOJ ; END OF JOB

 D ^BMCKILL

 Q

BMCSKEL   ; IHS/PHXAO/TMJ - SKELETON ROUTINE ;

 +1       ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006

 +2       ;

 +3       ; See ^BMCVDOC for system wide variables set by main menu

 +4       ;

 +5       ; Subscripted BMCREC is EXTERNAL form.

 +6       ;   BMCREC("PAT NAME")=patient name

 +7       ;   BMCREC("REF DATE")=referral date

 +8       ;   BMCDFN=patient ien

 +9       ;   BMCRDATE=referral date in internal FileMan form

 +10      ;   BMCRNUMB=referral number

 +11      ;   BMCRIEN=referral ien

 +12      ;   BMCRTYPE=type of referral (.04 field)

 +13      ;   BMCRIO=Inpatient or Outpatient (.14 field)

 +14      ;

START     ;

 +1        IF $GET(BMCPARM)=""

               DO PARMSET^BMC

 +2        FOR 

               DO MAIN

               IF BMCQ

                   QUIT 

               DO HDR^BMC

 +3        DO EOJ

 +4        QUIT 

 +5       ;

MAIN      ;

 +1        SET BMCQ=0

 +2        DO INIT

 +3        IF BMCQ

               QUIT 

 +4        DO XXXX

 +5        QUIT 

 +6       ;

XXXX      ;

 +1        QUIT 

 +2       ;

INIT      ; INITIALIZAION

 +1        QUIT 

 +2       ;

EOJ       ; END OF JOB

 +1        DO ^BMCKILL

 +2        QUIT