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

ASDFORM.m

Go to the documentation of this file. 
  1. ASDFORM ; IHS/ADC/PDW/ENM - PRINTS HS & OTHER FORMS ; [ 03/25/1999  11:48 AM ]
  1.  ;;5.0;IHS SCHEDULING;;MAR 25, 1999
  1.  ;
  1. EF(IBCLINIC,DFN,IBAPPT) ;EP; prints encounter form
  1.  NEW X
  1.  S X="IBDF1B2" X ^%ZOSF("TEST") I '$T Q
  1.  S IBFORM=+$$FORMS^IBDF1B2(IBCLINIC,DFN,IBAPPT) Q:'IBFORM
  1.  NEW G,I,J,K,L,LL,P,V,X,Y,APDATE,GDATE,PRDATE
  1.  NEW CNT,POP,ADDR,DGPGM,DIV,TDO,VAR,NAME,ORDER,SSN
  1.  NEW SC,SDATE,SDCNT,SDI,SDIQ,SDREP,SDSCCOND,SDSP,SDSTART,SDX
  1.  S IBPM=0,IBCOMP=1 D ^IBDF2A
  1.  Q
  1.  ;
  1. HS(APCHSPAT,APCHSTYP) ;EP; prints health summary
  1.  NEW G,I,J,K,L,LL,P,V,X,Y,APDATE,GDATE,PRDATE
  1.  NEW CNT,DFN,POP,ADDR,DGPGM,DIV,TDO,VAR,NAME,ORDER,SSN
  1.  NEW SC,SDATE,SDCNT,SDI,SDIQ,SDREP,SDSCCOND,SDSP,SDSTART,SDX
  1.  I $Y>5 W @IOF
  1.  D EN^APCHS
  1.  K AUPNPAT,AUPNDOB,AUPNDOD,AUPNSEX,DIC
  1.  K APCHSPDN,APCHSTAT,APCHSVTP,APCHSNDF,APCHSPRB
  1.  Q
  1.  ;
  1. MP(DFN) ;EP; prints med profile
  1.  NEW G,I,J,K,L,LL,P,V,X,Y,APDATE,GDATE,PRDATE
  1.  NEW CNT,POP,ADDR,DGPGM,DIV,TDO,VAR,NAME,ORDER,SSN
  1.  NEW SC,SDATE,SDCNT,SDI,SDIQ,SDREP,SDSCCOND,SDSP,SDSTART,SDX
  1.  NEW ASDX,ASDY,FN,DA,D0,PLS,PSRT,PSLC,PSZCHN,ST,ST0,PSODTCT
  1.  K ^UTILITY($J)
  1.  S (FN,DA,D0)=DFN,PSRT="DATE",X=""
  1.  S X1=DT,X2=-365 D C^%DTC S PSODTCT=X
  1.  S X="PSOP" X ^%ZOSF("TEST") I $T S PLS="S" U IO D P^PSOP Q
  1.  S X="PSP" X ^%ZOSF("TEST") I $T S PLS=1 U IO D P^PSP
  1.  Q
  1.  ;
  1. AIU(DFN) ; EP; prints address/insurance update
  1.  NEW G,I,J,K,L,LL,P,V,X,Y,APDATE,GDATE,PRDATE
  1.  NEW CNT,POP,ADDR,DGPGM,DIV,TDO,VAR,NAME,ORDER,SSN
  1.  NEW SC,SDATE,SDCNT,SDI,SDIQ,SDREP,SDSCCOND,SDSP,SDSTART,SDX
  1.  NEW ASDX,ASDY
  1.  S ASDX=$$VALI^XBDIQ1(9000001,DFN,.03) ;last reg update
  1.  S ASDY=$$VALI^XBDIQ1(40.8,$$DIV^ASDUT,9999999.08) ;waiting days
  1.  I $$FMADD^XLFDT(ASDX,ASDY)>DT Q  ;not time yet
  1.  D SET^ASDAIU,END1^ASDAIU
  1.  Q
  1.  ;